inherited frmUser: TfrmUser
  Left = 537
  Top = 174
  Width = 556
  Height = 475
  Caption = #3649#3615#3657#3617#3627#3621#3633#3585' | '#3612#3641#3657#3651#3594#3657#3650#3611#3619#3649#3585#3619#3617
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 72
    Top = 240
    Width = 150
    Height = 13
    Caption = #3626#3606#3634#3609#3632' : 0 : Admin , 1: User'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel [1]
    Left = 72
    Top = 256
    Width = 342
    Height = 13
    Caption = #3626#3606#3634#3609#3632' (Level) : 0 : Full , 1: Only Update Code  , 2: ReadOnly'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object KDBGrid1: TKDBGrid [2]
    Left = 0
    Top = 279
    Width = 540
    Height = 120
    Align = alBottom
    DataSource = dsDetail
    TabOrder = 9
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'USRCODE'
        Title.Caption = #3619#3627#3633#3626#3612#3641#3657#3651#3594#3657#3650#3611#3619#3649#3585#3619#3617
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'STSCODE'
        Title.Caption = #3619#3627#3633#3626#3650#3611#3619#3649#3585#3619#3617
        Width = 126
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'STSLEV'
        Title.Caption = #3626#3606#3634#3609#3632' (Level)'
        Width = 164
        Visible = True
      end>
  end
  object KDBEdit7: TKDBEdit [3]
    Left = 104
    Top = 168
    Width = 289
    Height = 21
    DataField = 'USRSTS'
    DataSource = dsMaster
    TabOrder = 5
    INITLabel.Show = True
    INITLabel.Caption = #3626#3606#3634#3609#3632
  end
  object KDBEdit5: TKDBEdit [4]
    Left = 104
    Top = 200
    Width = 41
    Height = 21
    DataField = 'DEPCODE'
    DataSource = dsMaster
    TabOrder = 6
    INITSpeedButton.Show = True
    INITSpeedButton.Kind = bkLookUp
    INITLabel.Show = True
    INITLabel.Caption = #3619#3627#3633#3626#3627#3609#3656#3623#3618
    KLookUp = DataModule1.luDept
    LookUpFieldName = 'DEPCODE'
    LookUpValues = <
      item
        ValueFields.Strings = (
          'DEPNAME')
        PostField = 'DEPNAME'
      end>
    ShortCutButton = 115
  end
  object KDBEdit6: TKDBEdit [5]
    Left = 170
    Top = 201
    Width = 222
    Height = 21
    TabStop = False
    Color = 14811135
    DataField = 'DEPNAME'
    DataSource = dsMaster
    TabOrder = 7
  end
  object KDBEdit2: TKDBEdit [6]
    Left = 104
    Top = 75
    Width = 289
    Height = 21
    DataField = 'USRNAME'
    DataSource = dsMaster
    TabOrder = 2
    INITInput.Language = lgThai
    INITLabel.Show = True
    INITLabel.Caption = #3594#3639#3656#3629#3612#3641#3657#3651#3594#3657#3650#3611#3619#3649#3585#3619#3617
  end
  object KDBEdit1: TKDBEdit [7]
    Left = 104
    Top = 44
    Width = 81
    Height = 21
    DataField = 'USRCODE'
    DataSource = dsMaster
    TabOrder = 1
    INITLabel.Show = True
    INITLabel.Caption = #3619#3627#3633#3626#3612#3641#3657#3651#3594#3657#3650#3611#3619#3649#3585#3619#3617
  end
  object KDBEdit4: TKDBEdit [8]
    Left = 104
    Top = 137
    Width = 289
    Height = 21
    DataField = 'USRPASS'
    DataSource = dsMaster
    TabOrder = 4
    INITLabel.Show = True
    INITLabel.Caption = #3619#3627#3633#3626#3612#3656#3634#3609
  end
  object KDBEdit3: TKDBEdit [9]
    Left = 104
    Top = 106
    Width = 289
    Height = 21
    DataField = 'USRLOG'
    DataSource = dsMaster
    TabOrder = 3
    INITLabel.Show = True
    INITLabel.Caption = #3594#3639#3656#3629' Login'
  end
  inherited pnBottom: TPanel
    Top = 399
    Width = 540
    TabOrder = 8
    inherited btnClose: TSpeedButton
      Left = 461
    end
  end
  inherited ToolBar1: TToolBar
    Width = 540
  end
  inherited qMaster: TADOQuery
    CommandTimeout = 0
    Parameters = <
      item
        Name = 'USRCODE'
        DataType = ftWideString
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM MUSR WHERE USRCODE =  :USRCODE')
    object qMasterUSRCODE: TWideStringField
      FieldName = 'USRCODE'
      Size = 15
    end
    object qMasterUSRNAME: TWideStringField
      FieldName = 'USRNAME'
      Size = 250
    end
    object qMasterUSRLOG: TWideStringField
      FieldName = 'USRLOG'
      Size = 50
    end
    object qMasterUSRPASS: TWideStringField
      FieldName = 'USRPASS'
    end
    object qMasterUSRSTS: TWideStringField
      FieldName = 'USRSTS'
      Size = 1
    end
    object qMasterDEPCODE: TWideStringField
      FieldName = 'DEPCODE'
      Size = 5
    end
    object qMasterDEPNAME: TWideStringField
      FieldName = 'DEPNAME'
    end
  end
  inherited qDetail: TADOQuery
    BeforePost = qDetailBeforePost
    CommandTimeout = 0
    Parameters = <
      item
        Name = 'USRCODE'
        DataType = ftWideString
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM MSTS WHERE USRCODE = :USRCODE'
      '')
    object qDetailUSRCODE: TWideStringField
      FieldName = 'USRCODE'
      Size = 15
    end
    object qDetailSTSCODE: TWideStringField
      FieldName = 'STSCODE'
      Size = 5
    end
    object qDetailSTSLEV: TWideStringField
      FieldName = 'STSLEV'
      Size = 1
    end
  end
end
